home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / sound / melodyrecgui / melodyrecgui-eng < prev    next >
Text File  |  1999-11-29  |  6KB  |  292 lines
  1. /* $VER: MelodyRec.rexx 2.0.1 (12.11.1999) © mEDi of dSd E-Mail:mEDi_dSd@GMX.DE & Ramboy of Warp9 E-Mail:rby@w-9.de*/
  2. /*
  3.  
  4.  
  5. 22.01.99    V1.0.1    first version
  6. 24.01.99    V1.0.2    2 minor bugs removed by Ramboy@W-9.DE 
  7. 25.01.99    V1.0.3    first Aminet Version 
  8. 14.02.99    V1.0.4    english version (RAMBOY) and some Bugs removed (RAMBOY)
  9. 07.05.99    V1.0.5    new device name (RAMBOY)
  10. 12.11.99    V2.0.1    (RAMBOY)
  11.  
  12.  
  13. */
  14.  
  15.  
  16.  
  17. /* rexxsupport.library öffnen */
  18.  
  19. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
  20.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  21.       say "Could not open the rexxsupport.library "
  22.       EXIT(10)
  23.       END
  24.  
  25.  
  26. Signal On Syntax
  27. Signal On IOErr
  28. Signal off failure
  29.  
  30.  
  31. CALL PRAGMA("PRIORITY",1)
  32.  
  33. /* rexxreqtools.library öffnen */
  34.  
  35. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  36.    IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN
  37.       EXIT(10)
  38.  
  39. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
  40.    IF ~ADDLIB('tritonrexx.library',5,-30,0) THEN DO
  41.       SAY 'Could not open the <tritonrexx.library> !'
  42.       EXIT(10)
  43.    END
  44. END
  45.  
  46. OPTIONS RESULTS
  47. Version = "2.0"
  48. Release = "1"
  49. DATE    = "12.11.1999"
  50.  
  51. NL = '0a'x
  52.  
  53.  
  54. MainProgramm    = "MelodyRec"        /* MelodyRec pfade z.B. "sys:pro/MelodyRec" usw. */
  55. main_UNIT    = "0"            /* def audiounit */
  56. main_AudioName    = "melodyaudio.device"    /* def audioname */
  57.  
  58. main_BITS_LIST.0 = 3
  59. main_BITS_LIST.1 = 8
  60. main_BITS_LIST.2 = 16
  61. main_BITS_LIST.3 = 32
  62.  
  63. call init_windows
  64.  
  65.  
  66. app = TR_CREATEAPP('TRCA_Name MelodyRec.rexx',
  67.                    'TRCA_LongName "MelodyRec GUI © MEDI [_- DSD -_] & RAMBOY [_- W9 -_]"',
  68.                    'TRCA_Info     "MelodyRec GUI"',
  69.                    'TRCA_Version  'Version,
  70.                    'TRCA_Release  'Release,
  71.                    'TRCA_Date     'DATE,
  72.                    'TAG_END')
  73.  
  74. IF app ~= '00000000'x THEN DO
  75.  
  76.    window = TR_OPENPROJECT(app,windowtags)
  77.  
  78.    IF window ~= '00000000'x THEN DO
  79.       ende = 0
  80.  
  81.       DO WHILE ende ~= 1
  82.          CALL TR_WAIT(app,'')
  83.  
  84.          DO WHILE TR_HANDLEMSG(app,'event')
  85.  
  86.  
  87.  
  88. /*say '************'
  89. say event.trm_class
  90. say event.trm_id
  91. say '*************'*/
  92.  
  93.  
  94. /* 'TRMS_ACTION' START */
  95.  
  96.     IF event.trm_class = 'TRMS_ACTION' THEN DO
  97.         SELECT
  98.  
  99.  
  100. /* QUIT */
  101.         WHEN event.trm_id = 1 THEN ENDE = 1
  102.  
  103. /* SELECT new file */
  104.         WHEN event.trm_id = 21 THEN call select_new_file
  105.  
  106. /* RUN */
  107.         WHEN event.trm_id = 30 THEN call RUN_melodyREC
  108.  
  109.  
  110.  
  111. /* 'TRMS_ACTION' END */
  112.         OTHERWISE
  113.         NOP
  114.         END
  115.     END
  116.  
  117.  
  118.  
  119.             IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
  120.                ende = 1
  121.          END
  122.       END
  123.  
  124.       CALL TR_CLOSEPROJECT(window)
  125.    END
  126.  
  127.    CALL TR_DELETEAPP(app)
  128. END
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138. EXIT
  139.  
  140. /***********************************************************************************/
  141. /**********************************************************************************/
  142.  
  143. select_new_file:
  144.  
  145.  
  146.     main_new_files = rtfilerequest(, , "please select new filename", ,"rtfi_buffer=true rtfi_matchpat=(#?")
  147.     if main_new_files = "" then return
  148.  
  149. call TR_SETATTRIBUTE(window,20,'TROB_String',main_new_files)
  150.  
  151. Return
  152.  
  153.  
  154. RUN_melodyREC:
  155.                 /* FILENAME/A,AUDIONAME/K,AUDIOUNIT/N/K,BITS/ */
  156.  
  157. main_FILENAME    = '"'TR_GetAttribute(window,20,'TROB_String')'"'
  158. main_AUDIONAME    = TR_GetAttribute(window,10,'TROB_String')
  159. main_AUDIOUNIT    = TR_GetAttribute(window,11,'TROB_String')
  160.  
  161.     dummy    = TR_GetAttribute(window,12,'TRAT_Value')+1
  162. main_BITS    = main_BITS_LIST.dummy
  163.  
  164.  
  165. if main_FILENAME = '"'||'"' | main_AUDIONAME = "" | main_AUDIOUNIT = "" then return
  166.  
  167.  
  168.  
  169. say "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit" main_AUDIOUNIT "bits" main_BITS
  170. address command  "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit"  main_AUDIOUNIT "bits" main_BITS
  171.  
  172.  
  173. call rtezrequest( "Press Stop"NL,
  174.             "to abort"NL,
  175.             "the record",
  176.             , "   _STOP   ","MelodyRec GUI", ,
  177.             "rtez_flags=ezreqf_centertext rtez_defaultresponse=0")
  178.  
  179. address command "kill" "melodyRec"
  180.  
  181.  
  182.  
  183. Return
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196. /* Error Log funktion © 1996-99 mEDi of dSd **********************************/
  197.  
  198. SYNTAX:
  199. IOERR:
  200. failure:
  201. error_num = rc
  202. error_Sigl = Sigl
  203.  
  204. if exists("s:Error_text_e.txt") then
  205.         call READLINES("s:Error_text_e.txt",error_num,1,"%s %1024c",dummy error_txt_e)
  206.  
  207.  
  208. error_log_msg.0 = 8
  209. error_log_msg.1 = "*************************************************"
  210. error_log_msg.2 = "Error "error_num" in Line:" Sigl
  211. error_log_msg.3 = "- Error Line -----------"
  212. error_log_msg.4 = SOURCELINE(sigl)
  213. error_log_msg.5 = "- Description -----------------------------------"
  214. error_log_msg.6 = "English : "error_txt_e.1
  215. error_log_msg.7 = "original: "ERRORTEXT(error_num)
  216. error_log_msg.8 = "programm: MelodyRec.rexx V"Version"."Release" ("DATE")"
  217.  
  218.  
  219. if ~WRITEFILE("t:Error.log",error_log_msg,append) THEN
  220.     call WRITEFILE("t:Error.log",error_log_msg,)
  221.  
  222. do i = 1 to error_log_msg.0
  223. say error_log_msg.i
  224. end
  225.  
  226.  
  227. if app ~= "APP" then
  228.     CALL TR_DELETEAPP(app)
  229.  
  230. EXIT
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240. INIT_Windows:
  241.  
  242.  
  243. windowtags =    WindowID(1),
  244.         WindowTitle('MelodyRec GUI v'Version||Release" ("DATE")"),
  245.         windowPosition(TRWP_DEFAULT),
  246.         'VertGroupA',
  247.             'Space',
  248.             NamedSeparator(' © 1999 mEDi of dSd & Ramboy of W9'),
  249.             'Space',
  250.             'HorizGroup',
  251.                 'HorizGroup',
  252.                         'Space',
  253.                     text3("AudioName: ") 'Space' StringGadget(main_AudioName,10) 'TRAT_Value 32',
  254.                     'Space',
  255.                 'EndGroup',
  256.                     'Space',
  257.                 'HorizGroup' ,
  258.                         'Space',
  259.                     text3("UNIT:") StringGadget(main_UNIT,11) 'TRAT_Value 2',
  260.                         'Space',
  261.                     text3("BITS"),
  262.                     'Space',
  263.                     CycleGadget('main_BITS_LIST',1,12),
  264.                     'Space',
  265.                 'EndGroup',
  266.                     'Space',
  267.             'EndGroup',
  268.                     'Space',
  269.             'HorizGroupA',
  270.                     'Space',
  271.                 text3("File: "),
  272.                     'Space',
  273.                 StringGadget("",20) 'TRAT_Value 256',
  274.                     'Space',
  275.                 GetFileButton(21),
  276.                     'Space',
  277.             'EndGroup',
  278.                 'Space',
  279.             'HorizGroupS',
  280.                     'Space',
  281.                 Button("RUN",30),
  282.                     'Space',
  283.                 Button("Quit",1),
  284.                     'Space',
  285.             'EndGroup',
  286.                 'Space',
  287.         'EndGroup',
  288.         'EndProject'
  289.  
  290.  
  291. return
  292.